home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD006b.dsk / REPLACE WORDS.bas < prev    next >
BASIC Source File  |  2003-06-12  |  1KB  |  41 lines
  1. 1  HOME : VTAB 10
  2. 10 D$ = "<CTRL-D>"
  3. 14  DIM WD(8),DA(8)
  4. 15  INPUT "WHICH FILE ";F$
  5. 16  IF F$ = "LT5"  THEN BY = 15:LT = 4: GOTO 20
  6. 17  IF F$ = "LT6"  THEN BY = 18:LT = 5: GOTO 20
  7. 18  IF F$ = "LT7"  THEN BY = 21:LT = 6: GOTO 20
  8. 19  IF F$ = "LT8"  THEN BY = 24:LT = 7
  9. 20  INPUT "WHICH RECORD TO CHANGE ";RE
  10. 21  PRINT "DO YOU WISH TO CHANGE THE FOLLOWING WORD"
  11. 22  PRINT D$;"OPEN ";F$;",L";BY
  12. 24  GOSUB 1000: PRINT 
  13. 25  PRINT D$;"CLOSE"
  14. 26  PRINT "(Y/N)?";: GET A$: PRINT A$: IF A$ = "Y"  THEN 29
  15. 28  GOTO 120
  16. 29  PRINT : PRINT "ENTER NEW WORD"
  17. 30  FOR I = 0 TO LT
  18. 40  GET A$: PRINT A$;: IF A$ <"A"  OR A$ >"Z"  THEN 40
  19. 42 WD(I) =  ASC(A$) - ASC("A") +11
  20. 50  NEXT I
  21. 51  PRINT 
  22. 60  PRINT D$;"OPEN ";F$;",L";BY
  23. 65  GOSUB 1000
  24. 70  PRINT D$;"WRITE ";F$;",R";RE
  25. 80  FOR I = 0 TO LT
  26. 90  PRINT WD(I)
  27. 100  NEXT I
  28. 110  PRINT D$;"CLOSE"
  29. 120  PRINT "DO YOU WISH TO CONTINUE(Y/N)?";: GET F$: PRINT F$
  30. 130  IF F$ = "Y"  THEN  GOTO 15
  31. 131  IF F$ < >"N"  THEN 120
  32. 140  END 
  33. 1000  PRINT D$;"READ ";F$;",R";RE
  34. 1010  FOR I = 0 TO LT
  35. 1020  INPUT DA(I)
  36. 1030  NEXT I
  37. 1040  FOR I = 0 TO LT
  38. 1050  PRINT  CHR$(DA(I) -11 + ASC("A"));
  39. 1060  NEXT I
  40. 1070  PRINT " "
  41. 1080  RETURN